home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Games Machine 75
/
XENIATGM75.iso
/
Shareware
/
X-Setup 5.0
/
_SETUP.1
/
XQ Windows Serial.xpl
< prev
next >
Wrap
Text File
|
1998-09-17
|
1KB
|
69 lines
"FILE"="Xteq Systems X-Setup Plugin 3.1"
"TYPE"="1"
"COUNT"="1"
"UIPATH"="System\Misc"
"NAME"="Windows PID"
"LANGUAGE"="VBScript"
"TEXT 1"="PID"
"DESCRIPTION 1"=""
"DESCRIPTION 2"=""
"DESCRIPTION 3"=""
"AUTHOR"="???"
"COPYRIGHT"="???"
"COMMENT 1"=" "
"COMMENT 2"=" "
"COMMENT 3"=" "
"COMMENT 4"=" "
"COMMENT 5"="Done by AmoKKomA..."
strRegPath="HKLM\Software\Microsoft\Windows\CurrentVersion\ProductID"
strRegPathNT="HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductID"
Sub Plugin_Initialize
if GetWinVer=1 or GetWinVer=3 then
strValue=RegReadValue(strRegPath)
else
strValue=RegReadValue(strRegPathNT)
end if
Call SetUIElement(1,strValue)
End Sub
Sub Plugin_CheckData(ElementIndex)
strValue=GetUIElement(1)
If Len(strValue)<=0 Then
Call DataInvalid("You have to enter a PID!")
End If
End Sub
Sub Plugin_Apply(ElementIndex,ElementSubIndex)
strValue=GetUIElement(1)
if GetWinVer=1 or GetWinVer=3 then
Call RegWriteValue(strRegPath,strValue,1)
else
Call RegWriteValue(strRegPathNT,strValue,1)
end if
End Sub
Sub Plugin_Terminate
End Sub